home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / games / ab2high.bas next >
BASIC Source File  |  1991-10-18  |  554b  |  22 lines
  1. 1000 '
  2. 1010 ' アフターバーナー高速化
  3. 1020 '
  4. 1030 CLS
  5. 1040 PRINT "＊＊＊ＡＦＴＥＲ　ＢＵＲＮＥＲ":PRINT 
  6. 1050 PRINT "ディスクをＡドライブに入れて何かキーを押して下さい"
  7. 1060 WHILE INKEY$="":WEND
  8. 1070 '
  9. 1080 OPEN "R",#1,"a:(1)\AB2.EXP"
  10. 1090 FIELD #1,1 AS DT$
  11. 1100 READ NUM
  12. 1110 READ D$:OFST=VAL("&H"+D$)
  13. 1120 FOR J=1 TO NUM
  14. 1130   READ D$:DAT=VAL("&H"+D$)
  15. 1140   LSET DT$=CHR$(DAT MOD 256):PUT #1,OFST+1:OFST=OFST+1
  16. 1150 NEXT
  17. 1160 CLOSE
  18. 1170 END
  19. 1180 '
  20. 1190 DATA 18,3E4F
  21. 1200 DATA 66,B9,E3,00,68,10,01,00,00,0F,A1,64,FF,1D,60,00,00,00
  22.